Suzy B Software 2

home *** CD-ROM | disk | FTP | other *** search

/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_88 / fia / fia_mk.bas

(.txt)

Wrap

Atari STOS Basic | 1989-11-22 | 91KB | 472 lines

10 CURS 100 REM *** intro *** 1000 REM ***REDS TURN*** 10000 PEN 10002 IF 10004 IF 10006 IF 10008 IF 10010 IF 10012 IF 10014 IF 10016 IF 10018 IF 10020 IF 10022 IF 10024 IF 10026 IF 10028 IF 10030 IF 10032 RETURN 1005 GOSUB 1010 IF 110 EXTENSION (Index #0) (Token 0x80) 140 DEF 15 CLEAR 15000 EXTENSION (Index #0) (Token 0x80) 15010 REPEAT 16000 IF 16002 IF 16004 IF 16006 RETURN 16010 IF 16012 IF 16014 IF 16016 RETURN 16020 IF 16022 IF 16024 IF 16026 RETURN 16030 IF 16032 IF 16034 IF 16036 RETURN 1640 RETURN 17000 IF 17002 IF 17004 IF 17006 IF 17008 IF 17010 IF 17012 IF 17014 IF 17016 IF 17018 RETURN 17020 IF 17022 IF 17024 IF 17026 IF 17028 IF 17030 IF 17032 IF 17034 IF 17036 IF 17038 RETURN 17040 IF 17042 IF 17044 IF 17046 IF 17048 IF 17050 IF 17052 IF 17054 IF 17056 IF 17058 RETURN 17060 IF 17062 IF 17064 IF 17066 IF 17068 IF 17070 IF 17072 IF 17074 IF 17076 IF 17078 RETURN 190 VARNAME 200 SCROLL 2000 REM ***BLUESTURN*** 20000 PEN 20002 IF 20004 IF 20006 IF 20008 IF 20010 IF 20012 IF 20014 IF 20016 IF 20018 IF 20020 IF 20022 IF 20024 IF 20026 IF 20028 IF 20030 IF 20032 RETURN 2005 GOSUB 2010 IF 2020 VARNAME 225 IF 227 IF 230 SCROLL 300 VARNAME 310 SYNCHRO 315 GOTO 5 KEY 500 FADE 5000 REM *** RED1 *** 5010 IF 5012 IF 5014 IF 5016 IF 5018 IF 5020 IF 5022 IF 5024 IF 5026 IF 5028 IF 5030 IF 5031 IF 5032 IF 5034 IF 5036 IF 5038 IF 5040 IF 5042 IF 5044 IF 5046 IF 5048 IF 5050 IF 5052 IF 5054 IF 5056 IF 5058 IF 5060 IF 5062 IF 5064 IF 5066 IF 5068 IF 5070 IF 5072 IF 5074 IF 5076 IF 5078 IF 5090 IF 510 SPRITE 5100 REM *** RED2 *** 5110 IF 5112 IF 5114 IF 5116 IF 5118 IF 5120 IF 5122 IF 5124 IF 5126 IF 5128 IF 5130 IF 5131 IF 5132 IF 5134 IF 5136 IF 5138 IF 5140 IF 5142 IF 5144 IF 5146 IF 5148 IF 5150 IF 5152 IF 5154 IF 5156 IF 5158 IF 5160 IF 5162 IF 5164 IF 5166 IF 5168 IF 5170 IF 5172 IF 5174 IF 5176 IF 5178 IF 5190 IF 5200 REM *** RED3 *** 5210 IF 5212 IF 5214 IF 5216 IF 5218 IF 5220 IF 5222 IF 5224 IF 5226 IF 5228 IF 5230 IF 5231 IF 5232 IF 5234 IF 5236 IF 5238 IF 5240 IF 5242 IF 5244 IF 5246 IF 5248 IF 5250 IF 5252 IF 5254 IF 5256 IF 5258 IF 5260 IF 5262 IF 5264 IF 5266 IF 5268 IF 5270 IF 5272 IF 5274 IF 5276 IF 5278 IF 5290 IF 5300 REM *** RED4 *** 5310 IF 5312 IF 5314 IF 5316 IF 5318 IF 5320 IF 5322 IF 5324 IF 5326 IF 5328 IF 5330 IF 5331 IF 5332 IF 5334 IF 5336 IF 5338 IF 5340 IF 5342 IF 5344 IF 5346 IF 5348 IF 5350 IF 5352 IF 5354 IF 5356 IF 5358 IF 5360 IF 5362 IF 5364 IF 5366 IF 5368 IF 5370 IF 5372 IF 5374 IF 5376 IF 5378 IF 5390 IF 5500 REM *** BLUE1 *** 5510 IF 5512 IF 5514 IF 5516 IF 5518 IF 5520 IF 5522 IF 5524 IF 5526 IF 5528 IF 5530 IF 5531 IF 5532 IF 5534 IF 5536 IF 5538 IF 5540 IF 5542 IF 5544 IF 5546 IF 5548 IF 5550 IF 5552 IF 5554 IF 5556 IF 5558 IF 5560 IF 5562 IF 5564 IF 5566 IF 5568 IF 5570 IF 5572 IF 5574 IF 5576 IF 5578 IF 5590 IF 5600 REM *** BLUE2 *** 5610 IF 5612 IF 5614 IF 5616 IF 5618 IF 5620 IF 5622 IF 5624 IF 5626 IF 5628 IF 5630 IF 5631 IF 5632 IF 5634 IF 5636 IF 5638 IF 5640 IF 5642 IF 5644 IF 5646 IF 5648 IF 5650 IF 5652 IF 5654 IF 5656 IF 5658 IF 5660 IF 5662 IF 5664 IF 5666 IF 5668 IF 5670 IF 5672 IF 5674 IF 5676 IF 5678 IF 5690 IF 5700 REM *** BLUE3 *** 5710 IF 5712 IF 5714 IF 5716 IF 5718 IF 5720 IF 5722 IF 5724 IF 5726 IF 5728 IF 5730 IF 5731 IF 5732 IF 5734 IF 5736 IF 5738 IF 5740 IF 5742 IF 5744 IF 5746 IF 5748 IF 5750 IF 5752 IF 5754 IF 5756 IF 5758 IF 5760 IF 5762 IF 5764 IF 5766 IF 5768 IF 5770 IF 5772 IF 5774 IF 5776 IF 5778 IF 5790 IF 5800 REM *** BLUE4 *** 5810 IF 5812 IF 5814 IF 5816 IF 5818 IF 5820 IF 5822 IF 5824 IF 5826 IF 5828 IF 5830 IF 5831 IF 5832 IF 5834 IF 5836 IF 5838 IF 5840 IF 5842 IF 5844 IF 5846 IF 5848 IF 5850 IF 5852 IF 5854 IF 5856 IF 5858 IF 5860 IF 5862 IF 5864 IF 5866 IF 5868 IF 5870 IF 5872 IF 5874 IF 5876 IF 5878 IF 5890 IF 600 IF 60000 DATA 60010 DATA 60020 DATA 60030 DATA 610 GOTO 620 SPRITE 7000 REM *** reds turn *** 7005 GOSUB 7010 IF 7020 IF 7030 GOTO 7100 GOSUB 7110 IF 7120 IF 7130 VARNAME 7200 GOSUB 7210 IF 7220 IF 7230 VARNAME 7300 GOSUB 7310 IF 7320 IF 7330 VARNAME 7400 GOSUB 7410 IF 7420 IF 7430 VARNAME 7500 REM *** BLUESturn *** 7505 GOSUB 7510 IF 7520 IF 7530 GOTO 7600 GOSUB 7610 IF 7620 IF 7630 VARNAME 7700 GOSUB 7710 IF 7720 IF 7730 VARNAME 7800 GOSUB 7810 IF 7820 IF 7830 VARNAME 7900 GOSUB 7910 IF 7920 IF 7930 VARNAME 8000 MUSIC 8100 MUSIC